﻿Imports System.Windows.Forms

Public Class MDIECA
    Private Sub mnSalir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnSalir.Click
        Me.Close()
    End Sub

    Private Sub mnAnalistas_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnAnalistas.Click
        Dim CargarFrm As New frmConsultar
        CargarFrm.Cargar = "Analistas"
        CargarFrm.Text = "Consultar Analistas"
        CargarFrm.Show()
    End Sub

    Private Sub mnEmpresas_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnEmpresas.Click
        Dim CargarFrm As New frmConsultar
        CargarFrm.Cargar = "Empresas"
        CargarFrm.Text = "Consultar Empresas"
        CargarFrm.Show()
    End Sub

    Private Sub mnUsuarios_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnUsuarios.Click
        Dim CargarFrm As New frmConsultar
        CargarFrm.Cargar = "Usuarios"
        CargarFrm.Text = "Consultar Usuarios"
        CargarFrm.Show()
    End Sub

    Private Sub RegistroDeOrdenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RegistroDeOrdenToolStripMenuItem.Click
        Dim CargarFrm As New frmConsultar_Estudios
        CargarFrm.Show()
        CargarFrm.MdiParent = Me
    End Sub

    Private Sub MDIECA_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
End Class
